home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
dev
/
basic
/
REDHelpFix1.lha
/
Showexample
< prev
Wrap
AmigaDOS Script File
|
1980-01-01
|
901b
|
41 lines
.key file/k
.bra {
.ket }
set PORT=TED_REXX`Blitz2:REDHelp/GetTEDNumber`
set FILESPEC="{file}"
if "$PORT" eq "TED_REXX"
set LC=0
lab myloop
set LC=`eval "$LC+1"`
if "$LC" NOT eq "10"
set TEDSPORT="TED_REXX"$LC
Blitz2:REDHelp/FindPort $TEDSPORT
if "$RC" eq "2"
if "$FILESPEC" eq "COMPILE"
SYS:REXXC/rx "address $TEDSPORT ; SHOWSCREEN"
SYS:REXXC/rx "address $TEDSPORT ; COMPILE"
else
echo "$FILESPEC"
SYS:REXXC/rx "address $TEDSPORT ; LOADNEW '$FILESPEC'"
endif
SYS:REXXC/rx "address $TEDSPORT ; SHOWSCREEN"
SYS:REXXC/rx "address $TEDSPORT ; ACTIVATE"
quit
endif
skip back myloop
endif
run >NIL: Blitz2:Blitz2 $FILESPEC
quit
endif
if "$FILESPEC" eq "COMPILE"
SYS:REXXC/rx "address $PORT ; SHOWSCREEN"
SYS:REXXC/rx "address $PORT ; COMPILE"
else
SYS:REXXC/rx "address $PORT ; LOADNEW '$FILESPEC'"
endif
SYS:REXXC/rx "address $PORT ; ACTIVATE"